home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
001-025
/
scopedisk15
/
qrt
/
object1.qrt
< prev
next >
Wrap
Text File
|
1995-03-18
|
6KB
|
257 lines
{ ******************************************
QRT source for spheres connected by
reflecting cylenders
****************************************** }
FILE_NAME = object.raw
{ ** Instance definitions for quadratics to save
typing. These quadratics are the cylenders
that connect the spheres ** }
BEGIN_INSTANCES
QUADRATIC ( loc = (0, 0, 0),
name = X_AXIS_QUAD
a = 0,
b = 1,
c = 1,
d = 120,
xmin = 0, xmax = 100,
ymin = -11, ymax = 11,
zmin = -11, zmax = 11,
diff = ( .1, .1 , .9),
reflect = .66,
sreflect= 20,
)
QUADRATIC ( loc = (0, 0, 0),
name = Y_AXIS_QUAD
a = 1,
b = 0,
c = 1,
d = 120,
xmin = -11, xmax = 11,
ymin = 0, ymax = 100,
zmin = -11, zmax = 11,
diff = ( .1, .1 , .9),
reflect = .65,
sreflect= 20,
)
QUADRATIC ( loc = (0, 0, 0),
name = Z_AXIS_QUAD
a = 1,
b = 1,
c = 0,
d = 120,
xmin = -11, xmax = 11,
ymin = -11, ymax = 11,
zmin = 0, zmax = 100,
diff = ( .1, .1 , .9),
reflect = .66,
sreflect= 20,
)
END_INSTANCES
{ ** A pattern for the ground ** }
PATTERN ( x_size = 50,
y_size = 50,
name = CHECK,
RECTANGLE (
start_x = 0,
start_y = 0,
end_x = 25,
end_y = 25,
diff = (1, .2, .2)
)
RECTANGLE (
start_x = 25,
start_y = 25,
end_x = 50,
end_y = 50,
diff = (1, .2, .2)
)
)
{ ** The actual world starts here ** }
BEGIN_BBOX
BEGIN_BBOX { ** This is the lower half ** }
BEGIN_BBOX
SPHERE ( loc = (0, 0, 0), { ** back ** }
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
SPHERE ( loc = (100, 0, 0),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
INSTANCE_OF ( name = X_AXIS_QUAD,
loc = (0, 0, 0)
)
END_BBOX
BEGIN_BBOX { ** front ** }
SPHERE ( loc = (0, 0, 100),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
SPHERE ( loc = (100, 0, 100),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
INSTANCE_OF ( name = X_AXIS_QUAD,
loc = (0, 0, 100)
)
END_BBOX
INSTANCE_OF ( name = Z_AXIS_QUAD,
loc = (0, 0, 0)
)
INSTANCE_OF ( name = Z_AXIS_QUAD,
loc = (100, 0, 0)
)
END_BBOX
BEGIN_BBOX { ** This is the upper half ** }
BEGIN_BBOX { ** back ** }
SPHERE ( loc = (0, 100, 0),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
SPHERE ( loc = (100, 100, 0),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
INSTANCE_OF ( name = X_AXIS_QUAD,
loc = (0, 100, 0)
)
END_BBOX
BEGIN_BBOX { ** front ** }
SPHERE ( loc = (0, 100, 100),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
SPHERE ( loc = (100, 100, 100),
radius = 20,
diff = (.9, .1, .1),
reflect = .60,
sreflect = 20
)
INSTANCE_OF ( name = X_AXIS_QUAD,
loc = (0, 100, 100)
)
END_BBOX
INSTANCE_OF ( name = Z_AXIS_QUAD,
loc = (0, 100, 0)
)
INSTANCE_OF ( name = Z_AXIS_QUAD,
loc = (100, 100, 0)
)
END_BBOX
{ ** four vertical cylenders ** }
INSTANCE_OF ( name = Y_AXIS_QUAD,
loc = (0, 0, 0)
)
INSTANCE_OF ( name = Y_AXIS_QUAD,
loc = (0, 0, 100)
)
INSTANCE_OF ( name = Y_AXIS_QUAD,
loc = (100, 0, 0)
)
INSTANCE_OF ( name = Y_AXIS_QUAD,
loc = (100, 0, 100)
)
END_BBOX
PARALLELOGRAM ( loc = (-10000, -60, -10000),
v1 = ( 20000, 0, 0),
v2 = ( 0, 0, 20000),
diff = (.1,1,.1),
pattern = check,
xmult = 2,
ymult = 2
)
OBSERVER ( loc = (60, 150, 250),
lookat = (50, 50, 50)
)
LAMP ( loc = (70, 250, 350),
radius = 5,
dist = 200
)
FOC_LENGTH = 80
SKY ( horiz = (0, 0, .55),
zenith = (0, 0, .25),
dither = 4
)